home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs08.d81 / videos.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  10KB  |  339 lines
  1. 5 PRINT"[147]":POKE53280,12:POKE53281,12:POKE646,1:Z$=CHR$(13):P=1:Q=1
  2. 6 PRINT"IF YOU ARE USING THE TAPE RECORDER, INSERT THE REWOUND FILE TAPE.";Z$
  3. 7 FORA=1TO3200:NEXT:A=0
  4. 8 DIMB$(25,20),C$(25,20),D$(25,20)
  5. 10 PRINT"THIS PROGRAM ENABLES YOU TO RECORD THE LOCATIONS OF TAPED VIDEOS.";Z$
  6. 11 PRINT"THERE ARE 500 POSSIBLE ENTRIES";Z$
  7. 15 PRINT"THIS PROGRAM AND ITS FILE WORK ON DISK AND CASSETTE TAPE.";Z$
  8. 20 PRINT"WHEN SAVING ON DISK THE FILE NUMBER IS '3' AND IS CALLED 'INDEX3'.";Z$
  9. 25 INPUT"HAS THIS PROGRAM OR FILE BEEN USED BEFORE";A$
  10. 30 IFA$<>"YES"ANDA$<>"NO"THEN25
  11. 33 PRINT"[147]"
  12. 35 PRINT"SELECT A FILE MOVEMENT OPTION";Z$:A=0
  13. 36 PRINT"(IF IT'S THE FIRST TIME FOR THIS PROGRAM/FILE, ONLY THE 'SAVE' HALF"
  14. 37 PRINT,,,"[145][157][157]OF EACH OPTION APPLY)";Z$
  15. 40 PRINT"1. LOAD FILE FROM DISK AND SAVE ON DISK AND TAPE"
  16. 41 PRINT"2. LOAD FILE FROM DISK AND SAVE ON DISK AND TAPE"
  17. 42 PRINT"3. LOAD FILE FROM DISK AND SAVE ON TAPE"
  18. 43 PRINT"4. LOAD FILE FROM DISK AND SAVE ON TAPE - EXECUTE IMMEDIATELY"
  19. 44 PRINT"5. LOAD FILE FROM TAPE AND SAVE ON DISK"
  20. 45 PRINT"6. LOAD FILE FROM TAPE AND SAVE ON DISK - EXECUTE IMMEDIATELY"
  21. 46 PRINT"7. FILE LOAD AND SAVE WITH TAPE ONLY"
  22. 47 PRINT"8. NONE OF THE ABOVE";Z$
  23. 48 PRINT"(OPTION 8 DEFAULTS FILE LOAD AND SAVE TO DISK ONLY)"
  24. 49 GETA:IFA=0THEN49
  25. 50 IFA>8THEN49
  26. 51 WA=A:PRINT"[147]":IFA$="YES"THENB=1
  27. 52 IFA=8THENWA=0
  28. 53 IFB=0ANDWA=4ORWA=6THENPRINT"CANNOT LOAD FILE ON FIRST USE";Z$:GOTO35
  29. 54 IFB=0THEN56
  30. 55 GOSUB1000:IFWA=4ORWA=6THENPRINT"[147]":END
  31. 56 A=0:A$="0":PRINT"SELECT A FUNCTION";Z$
  32. 57 PRINT"1. NEW ENTRY";Z$;"2. ENTRY CHANGE";Z$;"3. ENTRY DELETE"
  33. 58 PRINT"4. QUERY";Z$;"5. MARKING BORROWED/RETURNED TAPES";Z$;"6. END"
  34. 59 GETA$:IFA$=""THEN59
  35. 60 A=VAL(A$):IFA>6THEN59
  36. 61 IFA=6ANDI=1THENPRINT"[147]":GOSUB1200:PRINT"[147]":END
  37. 62 IFA=6ANDI=0THENPRINT"[147]":END
  38. 63 PRINT"[147]":ONAGOSUB100,200,300,400,700
  39. 64 GOTO56
  40. 100 PRINT"NEW PROGRAM ENTRIES";Z$;Z$;"WHEN DONE ENTER '0' FOR SHOW TITLE";Z$
  41. 105 FORF=PTO25
  42. 110 FORG=QTO20
  43. 115 INPUT"SHOW TITLE[153]";B$:PRINTZ$
  44. 116 POKE646,1
  45. 120 IFB$="0"THENP=F:Q=G:GOTO150
  46. 125 B$(F,G)=B$:I=1
  47. 130 INPUT"NARRATIVE[153]";C$(F,G):PRINTZ$
  48. 131 POKE646,1
  49. 135 INPUT"TAPE NUMBER[153]";D$(F,G):PRINTZ$
  50. 136 POKE646,1
  51. 143 IFG=20THENQ=1
  52. 145 NEXT:NEXT
  53. 150 PRINT"[147]";"":B$="0":RETURN
  54. 200 PRINT"ENTRY CHANGE";Z$;Z$;"ENTER '0' FOR SHOW TITLE WHEN DONE";Z$
  55. 205 L=0:INPUT"TITLE OF THE SHOW ENTRY BEING CHANGED[153]";A$:PRINTZ$:IFA$="0"THEN297
  56. 206 POKE646,1
  57. 210 FORM=1TOF
  58. 215 FORN=1TO20
  59. 220 IFB$(M,N)=A$THENI=1:L=1:GOTO239
  60. 225 IFM=FANDN=GTHEN234
  61. 230 NEXT:NEXT
  62. 234 IFL=0THENPRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  63. 235 IFL=0THENPRINT"NO DATA FOUND ON SHOW";"[153]";A$;Z$;"":GOTO205
  64. 236 GOTO205
  65. 239 GOSUB2000
  66. 240 PRINT"VIDEO SHOW:[153]",DD$
  67. 241 IFDE$<>""THENPRINT,,DE$
  68. 242 IFDF$<>""THENPRINT,,DF$
  69. 243 IFDG$<>""THENPRINT,,DG$
  70. 244 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  71. 250 PRINT"";"NARRATIVE:[153]",DH$
  72. 251 IFDI$<>""THENPRINT,,DI$
  73. 252 IFDJ$<>""THENPRINT,,DJ$
  74. 253 IFDK$<>""THENPRINT,,DK$
  75. 254 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  76. 260 PRINT"";"VIDEO TAPE:";"[153]",D$(M,N);Z$;""
  77. 261 DD$="":DE$="":DF$="":DG$="":DH$="":DI$="":DJ$="":DK$=""
  78. 263 PRINT"WHAT DO YOU WANT TO CHANGE?";Z$
  79. 264 PRINT"1. TITLE";Z$;"2. NARRATIVE";Z$;"3. TAPE NO.";Z$
  80. 265 GETA:IFA=0THEN265
  81. 270 IFA>4THEN265
  82. 275 ONAGOTO280,285,290
  83. 280 INPUT"NEW TITLE[153]";B$(M,N):PRINTZ$;"":GOTO225
  84. 285 INPUT"NEW NARRATIVE[153]";C$(M,N):PRINTZ$;"":GOTO225
  85. 290 INPUT"TAPE NO.[153]";D$(M,N):PRINTZ$;"":GOTO225
  86. 297 PRINT"[147]";"":A$="0":RETURN
  87. 300 PRINT"ENTRY DELETE";Z$;Z$;"ENTER '0' FOR 'SHOW TITLE' WHEN DONE";Z$
  88. 301 POKE646,1:S=1:A=0:T=1:L=0:INPUT"TITLE OF SHOW[153]";A$:IFA$="0"THEN385
  89. 305 PRINT"":INPUT"TAPE NUMBER OR NAME[153]";TT$:PRINTZ$
  90. 306 PRINT"[158]";"YOU HAVE 15 SECONDS TO CHANGE YOUR MIND ABOUT DELETING";"[129]";A$
  91. 307 PRINTZ$;"[153]";"IF YOU CHANGE YOUR MIND PUSH 'T'";Z$:TI$="000000"
  92. 308 GETS$:IFTI$>"000015"THEN313
  93. 309 IFS$<>"T"THEN308
  94. 310 IFS$="T"THENPOKE646,1:GOTO301
  95. 313 FORM=STOF
  96. 315 FORN=TTO20
  97. 316 T=1:IFM=FANDN=GTHEN333
  98. 318 IFB$(M,N)<>A$THEN330
  99. 320 IFB$(M,N)=A$ANDD$(M,N)=TT$THENB$(M,N)="":C$(M,N)="":D$(M,N)="":L=1
  100. 323 IFL=1THENS=M:T=N:I=1:A=1:GOTO340
  101. 330 NEXTN:NEXTM
  102. 333 IFA=1THENL=1
  103. 335 IFL=0THENPOKE646,1:PRINT"NO DATA FOUND ON SHOW";"[153]";A$;Z$;""
  104. 336 IFL=1THENPOKE646,8:PRINT"SHOW[153]";A$;"[129]";"DELETED";Z$;"[129]"
  105. 337 A$="":TT$="":GOTO301
  106. 340 POKE646,2:PRINT"DELETING";"[129]";A$;"ON TAPE";TT$;Z$
  107. 341 L=0:FORO=MTOF
  108. 342 FORR=NTO20
  109. 343 N=1:IFO=FANDR=GTHEN375
  110. 344 IFR=20THENB$(O,R)=B$(O+1,1):C$(O,R)=C$(O+1,1):D$(O,R)=D$(O+1,1):GOTO365
  111. 347 B$(O,R)=B$(O,R+1):C$(O,R)=C$(O,R+1):D$(O,R)=D$(O,R+1)
  112. 365 NEXTR:NEXTO
  113. 375 FORU=1TOF
  114. 377 FORV=1TO20
  115. 380 IFB$(U,V)=""THENP=U:Q=V:F=U:G=V:GOTO384
  116. 383 NEXTV:NEXTU
  117. 384 GOTO330
  118. 385 PRINT"[147]";"":RETURN
  119. 400 A=0:PRINT"SELECT A QUERY MODE";Z$;"1. SHOW SEARCH"
  120. 405 PRINT"2. TAPE NO.";Z$;"3. NUMBER OF ENTRIES LEFT"
  121. 406 PRINT"4. PROGRAMS CURRENTLY ENTERED";Z$;"5. PROGRAMS BEING BORROWED"
  122. 407 PRINT"6. RETURN TO MENU";Z$
  123. 410 GETA$:IFA$=""THEN410
  124. 411 A=VAL(A$)
  125. 415 IFA>6THENA=0:GOTO410
  126. 416 IFA=6THEN440
  127. 417 PRINT"[147]"
  128. 420 ONAGOSUB500,600,800,1350,820
  129. 435 GOTO400
  130. 440 PRINT"[147]":RETURN
  131. 500 PRINT"THIS MODE LISTS DATA ENTERED ON A GIVEN SHOW";Z$
  132. 505 PRINT"ENTER '0' FOR 'SHOW TITLE' WHEN DONE";Z$
  133. 510 PRINT"                                       [146]";Z$
  134. 513 ZA=0:L=0:INPUT"SHOW TITLE[153]";A$:PRINTZ$:IFA$="0"THEN560
  135. 514 POKE646,1
  136. 515 FORM=1TOF
  137. 520 FORN=1TO20
  138. 521 ZZ=LEN(A$):IFLEFT$(B$(M,N),ZZ)=A$THEN526
  139. 525 IFB$(M,N)<>A$THEN555
  140. 526 GOSUB2000
  141. 527 ZA=ZA+1
  142. 528 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  143. 530 L=1:PRINT"SHOW TITLE[153]",DD$
  144. 531 IFDE$<>""THENPRINT,,DE$
  145. 532 IFDF$<>""THENPRINT,,DF$
  146. 533 IFDG$<>""THENPRINT,,DG$
  147. 534 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  148. 540 PRINT"";"NARRATIVE[153]",DH$
  149. 541 IFDI$<>""THENPRINT,,DI$
  150. 542 IFDJ$<>""THENPRINT,,DJ$
  151. 543 IFDK$<>""THENPRINT,,DK$
  152. 544 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  153. 552 PRINT"";"VIDEO TAPE[153]",D$(M,N);Z$;""
  154. 553 DD$="":DE$="":DF$="":DG$="":DH$="":DI$="":DJ$="":DK$=""
  155. 554 IFZA=2THEN565
  156. 555 IFM=FANDN=GANDZA<>0THEN565
  157. 556 IFM=FANDN=GTHEN558
  158. 557 NEXT:NEXT
  159. 558 IFL=0THENPRINT"NO DATA FOUND ON SHOW:";"[153]";A$;Z$;""
  160. 559 ZA=0:GOTO510
  161. 560 A$="0":ZA=0:PRINT"[147]";"":RETURN
  162. 565 PRINT"PUSH 'T' TO CONTINUE";", 'E' TO ESCAPE";Z$
  163. 566 GETY$:IFY$<>"T"ANDY$<>"E"THEN566
  164. 567 IFY$="E"THENPRINT"[147]":GOTO510
  165. 568 PRINT"[147]":IFM=FANDN=GTHEN510
  166. 569 ZA=0:GOTO557
  167. 600 PRINT"THIS MODE LISTS THE SHOWS ENTERED ON A GIVEN TAPE ";Z$
  168. 605 PRINT"ENTER '0' FOR 'TAPE NO.' WHEN DONE";Z$
  169. 610 PRINT"                                       [146]";Z$
  170. 611 L=0:ZA=0:INPUT"TAPE NO.[153]";A$:PRINTZ$:IFA$="0"THEN690
  171. 614 POKE646,1
  172. 615 PRINT"TAPE NO. :[153]";"";A$;Z$
  173. 620 FORM=1TOF
  174. 625 FORN=1TO20
  175. 626 IFLEFT$(A$,1)="*"THENLE=LEN(A$)-1:A$=RIGHT$(A$,LE):LE=0
  176. 627 IFLEFT$(D$(M,N),1)="*"THENA$="*"+A$
  177. 630 IFD$(M,N)<>A$THEN655
  178. 631 GOSUB2000
  179. 633 ZA=ZA+1
  180. 634 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  181. 635 L=1:PRINT"SHOW NAME[153]",DD$
  182. 636 IFDE$<>""THENPRINT,,DE$
  183. 637 IFDF$<>""THENPRINT,,DF$
  184. 638 IFDG$<>""THENPRINT,,DG$
  185. 639 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  186. 640 PRINT"";"NARRATIVE[153]",DH$
  187. 641 IFDI$<>""THENPRINT,,DI$
  188. 642 IFDJ$<>""THENPRINT,,DJ$
  189. 643 IFDK$<>""THENPRINT,,DK$
  190. 644 PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  191. 654 DD$="":DE$="":DF$="":DG$="":DH$="":DI$="":DJ$="":DK$=""
  192. 655 IFM=FANDN=GANDZA=0ANDL=1THEN610
  193. 656 IFM=FANDN=GTHENZA=6:GOTO659
  194. 657 IFZA=2THEN665
  195. 658 NEXT:NEXT
  196. 659 IFL=0THENPRINT"";"NO DATA FOUND ON TAPE";"[153]";A$;Z$;""
  197. 660 ZA=0:GOTO610
  198. 665 POKE646,1:PRINT"PUSH 'T' TO CONTINUE";Z$
  199. 670 GETY$:IFY$<>"T"THEN670
  200. 675 IFZA=6THENZA=0:GOTO610
  201. 680 ZA=0:PRINT"[147]":GOTO658
  202. 690 ZA=0:PRINT"[147]";"":RETURN
  203. 700 PRINT"MARKING BORROWED/RETURNED TAPES";Z$
  204. 705 PRINT"ENTER '0' FOR 'TAPE' WHEN DONE"
  205. 709 E$="":F$="":G$="":H$="":B=0:L=0:PRINT"";Z$
  206. 710 INPUT"TAPE TITLE/NUMBER[153]";E$:PRINTZ$;"":IFE$="0"THENPRINT"[147]":RETURN
  207. 711 PRINT"I[146]N/O[146]UT ?";Z$
  208. 712 GETF$:IFF$<>"I"ANDF$<>"O"THEN712
  209. 713 IFE$="M"THENINPUT"SHOW TITLE[153]";G$:PRINTZ$;""
  210. 714 IFF$="O"THENINPUT"WHO'S BORROWING THE TAPE[153]";H$:PRINTZ$;""
  211. 715 PRINT"[158]WORKING";Z$:IFF$="O"THEN727
  212. 716 FORM=1TOP
  213. 717 FORN=1TO20
  214. 718 IFE$="M"ANDD$(M,N)="M"ANDB$(M,N)<>G$THEN720
  215. 719 IFD$(M,N)=E$THENL=1
  216. 720 IFD$(M,N)<>"*"+E$THEN725
  217. 721 IFE$="M"ANDB$(M,N)<>G$THEN726
  218. 722 IFE$="M"ANDB$(M,N)=G$THENGOSUB782:GOTO709
  219. 724 GOSUB782:L=1
  220. 725 IFM=PANDN=QTHEN770
  221. 726 NEXT:NEXT
  222. 727 FORM=1TOP
  223. 728 FORN=1TO20
  224. 729 IFM=PANDN=QTHEN770
  225. 730 IFE$="M"ANDD$(M,N)="*M"ANDB$(M,N)<>G$THEN732
  226. 731 B=LEN(D$(M,N)):IFRIGHT$(D$(M,N),B-1)=E$THENL=1
  227. 732 IFD$(M,N)<>E$THEN736
  228. 733 IFE$="M"ANDB$(M,N)=G$THENGOSUB780:GOTO709
  229. 734 IFE$="M"ANDB$(M,N)<>G$THEN736
  230. 735 L=1:GOSUB780
  231. 736 NEXT:NEXT
  232. 770 IFL=0ANDE$="M"THENPRINT"NO DATA FOUND ON TAPE[153]";E$;"TITLE[153]";G$:GOTO709
  233. 771 IFL=0THENPRINT"NO DATA FOUND ON TAPE[153]";E$
  234. 772 IFL=1THENI=1
  235. 773 GOTO709
  236. 780 D$(M,N)="*"+D$(M,N):C$(M,N)=C$(M,N)+"*"+H$:RETURN
  237. 782 B=LEN(C$(M,N)):FORO=1TOB
  238. 783 IFMID$(C$(M,N),O,1)="*"THENC$(M,N)=LEFT$(C$(M,N),O-1):GOTO785
  239. 784 NEXT
  240. 785 B=LEN(D$(M,N)):D$(M,N)=RIGHT$(D$(M,N),B-1):RETURN
  241. 800 A=500-((P-1)*20+(Q-1))
  242. 805 PRINT"THERE ARE";"[153]";A;"";"ENTRIES LEFT";""
  243. 810 FORZ=1TO2500:NEXT
  244. 815 A=0:Z=0:PRINT"[147]":RETURN
  245. 820 PRINT"TAPES CURRENTLY BEING BORROWED";Z$:ZB=13
  246. 825 FORM=1TOP
  247. 826 FORN=1TO20
  248. 827 IFLEFT$(D$(M,N),1)<>"*"THEN843
  249. 828 POKE646,ZB
  250. 830 ZA=ZA+1:L=1:ZZ=1:PRINTB$(M,N);TAB(34);D$(M,N)
  251. 839 IFZA=17THEN860
  252. 841 IFZB=13THENZB=3:GOTO843
  253. 842 IFZB=3THENZB=13
  254. 843 IFM=PANDN=QANDL=0ANDZZ=1THENEE=1:GOTO870
  255. 844 IFM=PANDN=QANDL=1THENEE=1:GOTO860
  256. 845 IFM=PANDN=QANDZZ=0THEN850
  257. 848 NEXT:NEXT
  258. 850 PRINT"NO TAPES ARE BEING BORROWED AT THIS TIME":FORA=1TO4000:NEXT
  259. 855 PRINT"[147]":RETURN
  260. 860 PRINTZ$;"PUSH 'T' WHEN DONE"
  261. 865 GETA$:IFA$<>"T"THEN865
  262. 870 IFEE=1THENL=0:ZA=0:ZB=0:ZZ=0:EE=0:PRINT"[147]":RETURN
  263. 873 PRINT"[147]":L=0:ZA=0:GOTO848
  264. 1000 IFWA=2ORWA=5ORWA=6ORWA=7THEN1100
  265. 1002 PRINT"LOADING FILE FROM DISK";Z$
  266. 1003 OPEN15,8,15
  267. 1005 OPEN3,8,2,"0:INDEX3,S,R"
  268. 1007 INPUT#3,P,Q
  269. 1010 FORM=1TOP
  270. 1015 FORN=1TO20
  271. 1017 IFM=PANDN=QTHEN1040
  272. 1018 INPUT#15,A1,A1$,A2,A3:IFA1>19THENPRINTA1$:STOP
  273. 1020 INPUT#3,B$(M,N),C$(M,N),D$(M,N)
  274. 1035 NEXT:NEXT
  275. 1040 CLOSE3:CLOSE15
  276. 1043 F=P:G=Q
  277. 1045 IFWA=4THEN1300
  278. 1050 PRINT"[147]":RETURN
  279. 1100 OPEN3,1,0,"INDEX3"
  280. 1103 INPUT#3,P,Q
  281. 1105 FORM=1TOP
  282. 1110 FORN=1TO20
  283. 1112 IFM=PANDN=QTHEN1127
  284. 1115 INPUT#2,B$(M,N),C$(M,N),D$(M,N)
  285. 1125 NEXT:NEXT
  286. 1127 F=P:G=Q
  287. 1128 CLOSE3
  288. 1130 PRINT"[147]";"REWIND FILE TAPE."
  289. 1133 IFWA=6THEN1200
  290. 1135 PRINTZ$;"PUSH 'T' WHEN READY"
  291. 1140 GETU$:IFU$<>"T"THEN1140
  292. 1145 PRINT"[147]":RETURN
  293. 1200 IFWA=3ORWA=7THEN1300
  294. 1205 IFB=1THEN1215
  295. 1210 OPEN15,8,15:OPEN3,8,2,"0:INDEX3,S,W":GOTO1217
  296. 1215 OPEN15,8,15:OPEN3,8,2,"@0:INDEX3,S,W"
  297. 1217 PRINT"SAVING FILE ON DISK";Z$
  298. 1220 PRINT#3,F;Z$;G
  299. 1225 FORM=1TOF
  300. 1230 FORN=1TO20
  301. 1233 IFM=FANDN=GTHEN1255
  302. 1235 PRINT#3,B$(M,N);Z$;C$(M,N);Z$;D$(M,N);Z$
  303. 1240 INPUT#15,A1,A1$,A2,A3:IFA>19THENPRINTA1$:STOP
  304. 1250 NEXT:NEXT
  305. 1255 CLOSE3:CLOSE15
  306. 1257 IFWA=1ORWA=2THEN1300
  307. 1260 PRINT"[147]":RETURN
  308. 1300 OPEN3,1,1,"INDEX3"
  309. 1305 PRINT#3,F;Z$;G
  310. 1310 FORM=1TOF
  311. 1315 FORN=1TO20
  312. 1320 PRINT#3,B$(M,N);Z$;C$(M,N);Z$;D$(M,N);Z$
  313. 1325 IFM=FANDN=GTHEN1331
  314. 1330 NEXT:NEXT
  315. 1331 CLOSE3:PRINT"[147]";"REWIND FILE TAPE";Z$
  316. 1332 PRINT"PUSH 'T' WHEN DONE"
  317. 1333 GETU$:IFU$<>"T"THEN1333
  318. 1340 PRINT"[147]":RETURN
  319. 1350 ZA=0:ZB=3:FORM=1TOF
  320. 1355 FORN=1TO20
  321. 1356 ZA=ZA+1
  322. 1358 POKE646,ZB
  323. 1360 IFM=FANDN=GTHENZA=21:GOTO1375
  324. 1365 PRINTB$(M,N);TAB(36);"";D$(M,N):POKE646,ZB
  325. 1367 IFZA=20THEN1375
  326. 1368 IFZB=3THENZB=13:GOTO1370
  327. 1369 IFZB=13THENZB=3
  328. 1370 NEXT:NEXT
  329. 1375 POKE646,1:PRINTZ$;"PUSH 'T' WHEN DONE";", 'E' TO ESCAPE"
  330. 1380 GETQ$:IFQ$<>"T"ANDQ$<>"E"THEN1380
  331. 1382 IFQ$="E"THENZA=0:PRINT"[147]":RETURN
  332. 1385 IFZA=20THENPRINT"[147]":ZA=0:GOTO1370
  333. 1390 IFZA=21THENZA=0:PRINT"[147]":RETURN
  334. 2000 VA$=B$(M,N):VB$=C$(M,N)
  335. 2010 DD$=LEFT$(VA$,19):DE$=MID$(VA$,20,19):DF$=MID$(VA$,40,19)
  336. 2020 DG$=MID$(VA$,60,19):DH$=LEFT$(VB$,19):DI$=MID$(VB$,20,19)
  337. 2030 DJ$=MID$(VB$,40,19):DK$=MID$(VB$,60,19)
  338. 2040 VA$="":VB$="":RETURN
  339.